home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Whiteline: delta
/
whiteline CD Series - delta.iso
/
progtool
/
modula2
/
module
/
mousepos.def
< prev
next >
Wrap
Text File
|
1995-11-25
|
2KB
|
41 lines
(******************************************************************************)
(* This MODULE is Public Domain. Copy me like a beast! *)
(* Christian Ledermann *)
(* Wölfelkofen 2 *)
(* 84166 Adlkofen *)
(******************************************************************************)
(* *)
(* Started: 20.12.92 03:54:30 *)
(* Version: 20.01.94 04:12:54 *)
(* *)
(******************************************************************************)
(* *)
(* Diese Software ist ohne jede Garantie. Ich verspreche *)
(* keinerlei Wartung und übernehme keine Verantwortung für Schäden die *)
(* durch die Benutzung dieses Programmes entstehen. *)
(* Jegliche Ersatzansprüche lehne ich ab. *)
(* *)
(******************************************************************************)
DEFINITION MODULE MousePosition;
(******************************************************)
(* Ein paar einfache Routinen zum Erfragen und Setzen *)
(* des Mauszeigers *)
(******************************************************)
PROCEDURE GetMousePos(VAR MouseX, MouseY, Window : INTEGER);
(******************************************************)
(* Wo ist die Maus ? x,y-Position und Fenster über dem*)
(* sie sich befindet. *)
(******************************************************)
PROCEDURE SetMousePos( MouseX, MouseY : INTEGER);
(******************************************************)
(* Setzt die Maus auf Position x,y *)
(* Beshreibung von ApplTPlayback -> ST 4/88 *)
(******************************************************)
END MousePosition.